/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / FreeHand 3.1 / Aldus FreeHand 3.1 DEMO / Aldus FreeHand 3.1 DEMO.rsrc / Post_10021

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3c 14 2f 73 75 70 64 | 69 63 74 20 36 35 20 64 |.<./supd|ict 65 d|
|00000010| 69 63 74 20 64 65 66 0d | 73 75 70 64 69 63 74 20 |ict def.|supdict |
|00000020| 62 65 67 69 6e 14 2f 73 | 74 72 31 20 35 31 32 20 |begin./s|tr1 512 |
|00000030| 73 74 72 69 6e 67 20 64 | 65 66 0b 2f 64 78 20 35 |string d|ef./dx 5|
|00000040| 30 30 20 64 65 66 0b 2f | 64 79 20 37 30 30 20 64 |00 def./|dy 700 d|
|00000050| 65 66 0a 2f 63 6e 74 20 | 30 20 64 65 66 0a 2f 6e |ef./cnt |0 def./n|
|00000060| 65 77 69 6e 73 69 64 65 | 01 7b 20 7b 66 6c 61 74 |ewinside|.{ {flat|
|00000070| 74 65 6e 70 61 74 68 7d | 66 70 20 63 6c 69 70 70 |tenpath}|fp clipp|
|00000080| 65 72 20 70 61 74 68 62 | 62 6f 78 25 31 20 69 6e |er pathb|box%1 in|
|00000090| 64 65 78 20 34 20 69 6e | 64 65 78 20 73 75 62 20 |dex 4 in|dex sub |
|000000a0| 72 6f 75 6e 64 20 63 76 | 69 20 2f 64 78 20 78 64 |round cv|i /dx xd|
|000000b0| 66 25 30 20 69 6e 64 65 | 78 20 33 20 69 6e 64 65 |f%0 inde|x 3 inde|
|000000c0| 78 20 73 75 62 20 72 6f | 75 6e 64 20 63 76 69 20 |x sub ro|und cvi |
|000000d0| 2f 64 79 20 78 64 66 23 | 70 6f 70 20 70 6f 70 20 |/dy xdf#|pop pop |
|000000e0| 74 72 61 6e 73 6c 61 74 | 65 20 32 32 32 20 73 72 |translat|e 222 sr|
|000000f0| 61 6e 64 20 6e 20 7d 20 | 64 65 66 0a 2f 72 61 6e |and n } |def./ran|
|00000100| 64 69 6e 74 20 7b 13 72 | 61 6e 64 20 65 78 63 68 |dint {.r|and exch|
|00000110| 20 6d 6f 64 20 7d 20 64 | 65 66 27 2f 72 61 6e 64 | mod } d|ef'/rand|
|00000120| 38 20 7b 20 72 61 6e 64 | 20 2d 31 36 20 62 69 74 |8 { rand| -16 bit|
|00000130| 73 68 69 66 74 20 32 35 | 35 20 61 6e 64 7d 20 64 |shift 25|5 and} d|
|00000140| 65 66 06 2f 72 61 6e 64 | 32 1f 7b 20 72 61 6e 64 |ef./rand|2.{ rand|
|00000150| 20 2d 31 36 20 62 69 74 | 73 68 69 66 74 20 33 20 | -16 bit|shift 3 |
|00000160| 61 6e 64 20 7d 20 64 65 | 66 0a 2f 62 72 61 6e 64 |and } de|f./brand|
|00000170| 78 79 20 7b 1b 64 78 20 | 72 61 6e 64 69 6e 74 20 |xy {.dx |randint |
|00000180| 64 79 20 72 61 6e 64 69 | 6e 74 20 7d 20 64 65 66 |dy randi|nt } def|
|00000190| 03 2f 78 31 1c 7b 20 61 | 6e 67 6c 65 20 63 6f 73 |./x1.{ a|ngle cos|
|000001a0| 20 61 62 73 20 64 78 20 | 6d 75 6c 20 7d 20 64 65 | abs dx |mul } de|
|000001b0| 66 03 2f 78 32 23 7b 20 | 39 30 20 61 6e 67 6c 65 |f./x2#{ |90 angle|
|000001c0| 20 73 75 62 20 63 6f 73 | 20 61 62 73 20 64 79 20 | sub cos| abs dy |
|000001d0| 6d 75 6c 20 7d 20 64 65 | 66 03 2f 79 31 1c 7b 20 |mul } de|f./y1.{ |
|000001e0| 61 6e 67 6c 65 20 73 69 | 6e 20 61 62 73 20 64 78 |angle si|n abs dx|
|000001f0| 20 6d 75 6c 20 7d 20 64 | 65 66 03 2f 79 32 23 7b | mul } d|ef./y2#{|
|00000200| 20 39 30 20 61 6e 67 6c | 65 20 73 75 62 20 73 69 | 90 angl|e sub si|
|00000210| 6e 20 61 62 73 20 64 79 | 20 6d 75 6c 20 7d 20 64 |n abs dy| mul } d|
|00000220| 65 66 08 2f 62 61 63 6b | 67 6e 64 11 7b 20 78 73 |ef./back|gnd.{ xs|
|00000230| 74 61 72 74 20 79 73 74 | 61 72 74 20 6d 13 78 73 |tart yst|art m.xs|
|00000240| 74 61 72 74 20 79 73 74 | 61 72 74 20 61 62 73 20 |tart yst|art abs |
|00000250| 4c 17 78 73 74 61 72 74 | 20 61 62 73 20 79 73 74 |L.xstart| abs yst|
|00000260| 61 72 74 20 61 62 73 20 | 4c 13 78 73 74 61 72 74 |art abs |L.xstart|
|00000270| 20 61 62 73 20 79 73 74 | 61 72 74 20 4c 14 63 6c | abs yst|art L.cl|
|00000280| 6f 73 65 70 61 74 68 20 | 66 69 6c 6c 20 7d 20 64 |osepath |fill } d|
|00000290| 65 66 08 2f 69 6e 63 72 | 63 6e 74 1a 7b 20 2f 63 |ef./incr|cnt.{ /c|
|000002a0| 6e 74 20 63 6e 74 20 31 | 20 61 64 64 20 64 65 66 |nt cnt 1| add def|
|000002b0| 20 7d 20 64 65 66 0c 2f | 63 6f 6c 6f 72 63 68 6f | } def./|colorcho|
|000002c0| 69 63 65 01 7b 10 2f 66 | 6f 75 6e 64 20 66 61 6c |ice.{./f|ound fal|
|000002d0| 73 65 20 64 65 66 05 67 | 72 61 79 3f 17 7b 2f 43 |se def.g|ray?.{/C|
|000002e0| 43 62 6c 61 63 6b 20 5b | 30 20 30 20 30 20 30 5d |Cblack [|0 0 0 0]|
|000002f0| 20 64 65 66 10 63 6f 6c | 6f 72 20 31 20 65 78 63 | def.col|or 1 exc|
|00000300| 68 20 73 75 62 17 43 43 | 62 6c 61 63 6b 20 33 20 |h sub.CC|black 3 |
|00000310| 33 20 2d 31 20 72 6f 6c | 6c 20 70 75 74 13 43 43 |3 -1 rol|l put.CC|
|00000320| 62 6c 61 63 6b 20 66 68 | 73 65 74 63 6f 6c 6f 72 |black fh|setcolor|
|00000330| 7d 12 7b 63 6f 6c 6f 72 | 20 6c 65 6e 67 74 68 20 |}.{color| length |
|00000340| 32 20 65 71 20 7b 63 6f | 6c 6f 72 20 31 20 67 65 |2 eq {co|lor 1 ge|
|00000350| 74 20 74 79 70 65 20 28 | 74 65 78 74 29 20 74 79 |t type (|text) ty|
|00000360| 70 65 20 65 71 17 7b 30 | 20 31 20 73 70 6f 74 73 |pe eq.{0| 1 spots|
|00000370| 20 6c 65 6e 67 74 68 20 | 31 20 73 75 62 09 7b 2f | length |1 sub.{/|
|00000380| 63 6e 74 20 78 64 66 22 | 73 70 6f 74 73 20 63 6e |cnt xdf"|spots cn|
|00000390| 74 20 67 65 74 20 34 20 | 67 65 74 20 63 6f 6c 6f |t get 4 |get colo|
|000003a0| 72 20 31 20 67 65 74 20 | 65 71 19 7b 2f 66 6f 75 |r 1 get |eq.{/fou|
|000003b0| 6e 64 20 74 72 75 65 20 | 64 65 66 20 65 78 69 74 |nd true |def exit|
|000003c0| 7d 20 69 66 05 7d 20 66 | 6f 72 2e 66 6f 75 6e 64 |} if.} f|or.found|
|000003d0| 20 7b 63 6f 6c 6f 72 20 | 31 20 63 6e 74 20 70 75 | {color |1 cnt pu|
|000003e0| 74 7d 20 7b 63 6f 6c 6f | 72 20 31 20 33 20 70 75 |t} {colo|r 1 3 pu|
|000003f0| 74 7d 20 69 66 65 6c 73 | 65 04 7d 20 69 66 10 63 |t} ifels|e.} if.c|
|00000400| 6f 6c 6f 72 20 66 68 73 | 65 74 63 6f 6c 6f 72 04 |olor fhs|etcolor.|
|00000410| 7d 20 69 66 27 63 6f 6c | 6f 72 20 6c 65 6e 67 74 |} if'col|or lengt|
|00000420| 68 20 34 20 65 71 20 7b | 63 6f 6c 6f 72 20 66 68 |h 4 eq {|color fh|
|00000430| 73 65 74 63 6f 6c 6f 72 | 7d 20 69 66 08 7d 20 69 |setcolor|} if.} i|
|00000440| 66 65 6c 73 65 05 7d 20 | 64 65 66 06 2f 67 72 61 |felse.} |def./gra|
|00000450| 79 3f 35 7b 20 63 6f 6c | 6f 72 20 74 79 70 65 20 |y?5{ col|or type |
|00000460| 30 20 74 79 70 65 20 65 | 71 20 63 6f 6c 6f 72 20 |0 type e|q color |
|00000470| 74 79 70 65 20 2e 30 20 | 74 79 70 65 20 65 71 20 |type .0 |type eq |
|00000480| 6f 72 20 7d 20 64 65 66 | 03 65 6e 64             |or } def|.end    |
+--------+-------------------------+-------------------------+--------+--------+